home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / game / role / CTW10d.lha / CTW / scripts / Terminal / Terminal_CentralOffice.script < prev    next >
Text File  |  1997-09-02  |  760b  |  45 lines
  1. REM Office Computer|
  2.  
  3. :LOOP|
  4. GOTO LOOP|
  5.  
  6. :TOUCH|
  7. RND @USER 99|
  8. MATH @USER + 1|
  9. :COMPLOOP|
  10. [ "Welcome To GovNet Central Computer"|
  11. [ "Banks.  You are user number %1" @USER|
  12. [ "out of a possible 100."|
  13. [|
  14. [ "Please choose an option"|
  15. ] "Check Mail" MAIL|
  16. ] "File Transfer Protocol" FTP|
  17. ] "Exit" EXIT|
  18.  
  19. :EXIT|
  20. MATH @USER + 69|
  21. GOTO LOOP|
  22.  
  23. :MAIL|
  24. [|
  25. [ "Searching EMail..."|
  26. [ "Searching VallisPost..."|
  27. [ "Searching IP Express..."|
  28.  
  29. GLOGET 0 @MAINPLOT|
  30.  
  31. IF @MAINPLOT = 0 PACKAGE|
  32. GOTO COMPLOOP|
  33.  
  34. :PACKAGE|
  35. [ "There is a package from Records"|
  36. [ "Processing in the Central Office"|
  37. [ "Mail Room.  Proper ID required."|
  38. GOTO COMPLOOP|
  39.  
  40. :FTP|
  41. [ "Sorry, but the FTP system is"|
  42. [ "still being upgraded.  Access"|
  43. [ "is denied to all low-level users."|
  44. GOTO COMPLOOP|
  45.